home *** CD-ROM | disk | FTP | other *** search
/ The Magic Death 2 / The Magic Death - Virtual Murder 2.ISO / magicmpc / menu_int.mmm / meta.txt < prev   
Encoding:
Text File  |  1993-09-27  |  1.7 KB  |  31 lines
  1. Name
  2. ----
  3. Menu_IntRhino:magicMPC:redo:
  4.  
  5. Strings
  6. ------
  7. Sounds
  8. Macromedia Director
  9.  
  10. stxt
  11. ----
  12. -- handleCheck
  13. macro handleCheck theSprite
  14.  
  15. global NumberOfChecks
  16. global InterviewsSelected
  17.  
  18. -- clickSound
  19. puppetSprite theSprite, True
  20. if the castNum of sprite theSprite = A24 then -- unchecked
  21.   if NumberOfChecks<3 then
  22.     set NumberOfChecks = NumberOfChecks + 1
  23.     set the castNum of sprite theSprite to A25
  24.   else
  25.     nothing
  26.   end if
  27. else
  28.   set NumberOfChecks = NumberOfChecks - 1
  29.   set the castNum of sprite theSprite to A24
  30. end if
  31. -- playTheme
  32. macro playTheme
  33.  
  34. if not soundBusy(1) then
  35.    playDiskSound "Menu_Int"
  36. end if
  37. -- initMovie
  38. macro initMovie
  39.  
  40. global NumberOfChecks, InPress
  41.  
  42. arriveAtInMovie "Menu_Int", "Select"
  43. set NumberOfChecks = 0
  44. set InPress = False
  45.  
  46. playTheme
  47. -- rememberInterviews
  48. macro rememberInterviews
  49.  
  50. global InterviewsSelected
  51. set InterviewsSelected = Return&Return&Return
  52. set theLine = 1
  53.  
  54. repeat with Counter = 10 to 22
  55.   if the castNum of sprite Counter = A25 then -- checked
  56.     put nameOf (Counter) into line theLine of InterviewsSelected
  57.     set theLine = theLine + 1
  58.   end if
  59. end repeat
  60. put InterviewsSelected
  61. -- doneMenuInt
  62. macro doneMenuInt
  63.  
  64. global FilesOnHD
  65.  
  66. rememberInterviews
  67. killSound
  68. if FilesOnHD then
  69.   goHDMovie "Menu2"
  70. else
  71.   goMovie "Menu2"
  72. end if
  73.  
  74. Script Channel Commands
  75. --------------------
  76. arriveAtInMovie "Menu_Int", "Select"idleThisFramehandleCheck 10initMoviego "Select"playThemegoNextFramegoTo "Help"goNotebookhandleCheck 11handleCheck 16handleCheck 17handleCheck 18handleCheck 19handleCheck 20handleCheck 14handleCheck 13doneMenuInthandleCheck 12handleCheck 21doQuitStopWaiting
  77. arriveAtInMovie "Menu_Int", "Select"
  78. playThemehandleCheck 15
  79.  
  80. Fonts
  81. -----
  82. Geneva
  83. Geneva
  84. Courier
  85. Monaco
  86. Tekton
  87. Chicago
  88. Lithos Bold
  89.